home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / bas_int1.zip / DETECTDV.BAS < prev    next >
BASIC Source File  |  1991-03-23  |  1KB  |  50 lines
  1. '================================================================
  2. '     From:   Monte Ferguson
  3. '     Subj:   Detect Desqview Multi-Tasker & return version number
  4. '=================================================================
  5.      DECLARE FUNCTION DVVers! ()
  6.      
  7.      DEFINT A-Z
  8.      
  9.      TYPE RegType
  10.         AX AS INTEGER
  11.         Bx AS INTEGER
  12.         CX AS INTEGER
  13.         DX AS INTEGER
  14.         BP AS INTEGER
  15.         SI AS INTEGER
  16.         DI AS INTEGER
  17.         FLAGS AS INTEGER
  18.         DS AS INTEGER
  19.         ES AS INTEGER
  20.      END TYPE
  21.      
  22.      DIM SHARED InRegs AS RegType, OutRegs AS RegType
  23.      
  24.      CLS
  25.      DV! = DVVers!
  26.      IF DV! = 0 THEN
  27.         PRINT "DESQview is currently NOT running."
  28.      ELSE
  29.         PRINT USING "You are running under DESQview version #.##"; DV!
  30.      END IF
  31.      
  32.      END
  33.      
  34.      FUNCTION DVVers!
  35.      
  36.         InRegs.CX = &H4445   ' An invalid date... (= "DESQ")
  37.         InRegs.DX = &H5351
  38.         InRegs.AX = &H2B01      ' DOS Set Date function
  39.         CALL interrupt(&H21, InRegs, OutRegs)
  40.         IF (OutRegs.AX AND 255) = 255 THEN
  41.            DV.Vers = 0
  42.         ELSE
  43.            DV.Vers! = ((OutRegs.Bx AND &HFF00) / 256) + _
  44.               (OutRegs.Bx AND 255) / 100
  45.         END IF
  46.         DVVers! = DV.Vers!
  47.      
  48.      END FUNCTION
  49.  
  50.